Freelog 101/FreelogNo101-JanvierFevrier2011.iso/Internet/eM Client/setup.msi/eMClient.cab/IceWarpServerInterfacePluginFile/0/RCDATA/TSQLMANAGERFORM/TSQLMANAGERFORM.txt

Text File | 2010-10-15 | 7KB | 273 lines

object SQLManagerForm: TSQLManagerForm
  Left = 216
  Top = 165
  Width = 712
  Height = 594
  Caption = 'SQL Manager'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ManagerPanel: TPanel
    Left = 0
    Top = 0
    Width = 704
    Height = 567
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object SplitterH: TSplitter
      Left = 0
      Top = 274
      Width = 704
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object SQLBox: TTntGroupBox
      Left = 0
      Top = 0
      Width = 704
      Height = 274
      Align = alTop
      Caption = 'SQL'
      TabOrder = 0
      DesignSize = (
        704
        274)
      object HistoryL: TTntLabel
        Left = 7
        Top = 224
        Width = 59
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = 'SQL History:'
      end
      object SourceDSNL: TTntLabel
        Left = 7
        Top = 250
        Width = 49
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = 'Database:'
      end
      object SQLMemo: TTntMemo
        Left = 8
        Top = 15
        Width = 685
        Height = 200
        Anchors = [akLeft, akTop, akRight, akBottom]
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
        OnKeyDown = FormKeyDown
      end
      object SQLHistory: TTntComboBox
        Left = 104
        Top = 221
        Width = 465
        Height = 21
        Style = csDropDownList
        Anchors = [akLeft, akRight, akBottom]
        DropDownCount = 20
        ItemHeight = 13
        TabOrder = 1
        OnChange = SQLHistoryChange
        OnKeyDown = FormKeyDown
      end
      object ExecButton: TTntButton
        Left = 573
        Top = 220
        Width = 120
        Height = 23
        Anchors = [akRight, akBottom]
        Caption = 'Execute'
        TabOrder = 2
        OnClick = ExecButtonClick
        OnKeyDown = FormKeyDown
      end
      object SourceDSNLabel: TTntEdit
        Left = 104
        Top = 246
        Width = 260
        Height = 21
        TabStop = False
        Anchors = [akLeft, akRight, akBottom]
        Color = clBtnFace
        MaxLength = 255
        ReadOnly = True
        TabOrder = 6
      end
      object SourceDB: TTntButton
        Tag = 2
        Left = 573
        Top = 245
        Width = 120
        Height = 23
        Anchors = [akRight, akBottom]
        Caption = 'Database...'
        TabOrder = 5
        OnClick = DBButtonClick
      end
      object DBDropDown: TTntComboBox
        Left = 368
        Top = 246
        Width = 201
        Height = 21
        Style = csDropDownList
        Anchors = [akRight, akBottom]
        ItemHeight = 13
        TabOrder = 4
        OnChange = DBDropDownChange
        Items.Strings = (
          'Accounts'
          'Anti-Spam'
          'GroupWare')
      end
      object SourceDSN: TTntEdit
        Left = 104
        Top = 246
        Width = 260
        Height = 21
        Anchors = [akLeft, akRight, akBottom]
        Color = clBtnFace
        MaxLength = 255
        ReadOnly = True
        TabOrder = 3
        Visible = False
      end
    end
    object ResultGrid: TTntStringGrid
      Left = 0
      Top = 277
      Width = 704
      Height = 260
      Align = alClient
      ColCount = 1
      DefaultColWidth = 100
      DefaultRowHeight = 18
      FixedCols = 0
      RowCount = 1
      FixedRows = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goEditing]
      TabOrder = 1
      OnKeyDown = ResultGridKeyDown
      OnSelectCell = ResultGridSelectCell
      OnSetEditText = ResultGridSetEditText
    end
    object BottomPanel: TPanel
      Left = 0
      Top = 537
      Width = 704
      Height = 30
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
      object UpdateButton: TTntButton
        Left = 1
        Top = 4
        Width = 123
        Height = 23
        Caption = 'Update'
        TabOrder = 0
        OnClick = UpdateButtonClick
      end
      object DeleteButton: TTntButton
        Left = 129
        Top = 4
        Width = 123
        Height = 23
        Caption = 'Delete'
        TabOrder = 1
        OnClick = DeleteButtonClick
      end
      object SQLButton: TTntButton
        Left = 257
        Top = 4
        Width = 123
        Height = 23
        Caption = 'SQL...'
        TabOrder = 2
        OnClick = SQLButtonClick
      end
      object SaveButton: TTntButton
        Left = 385
        Top = 4
        Width = 123
        Height = 23
        Caption = 'Export...'
        TabOrder = 3
        OnClick = SaveButtonClick
      end
    end
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '.csv'
    Filter = 'CSV File (*.csv)|*.csv'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 768
    Top = 168
  end
  object PopupMenu: TTntPopupMenu
    Left = 8
    Top = 8
    object CreateSELECTbasedonthecurrentrow: TMenuItem
      Tag = 1
      Caption = 'Create SELECT statement based on current row'
      OnClick = CreateSELECTbasedonthecurrentrowClick
    end
    object CreateUPDATEstatement: TMenuItem
      Tag = 2
      Caption = 'Create UPDATE statement based on current row'
      OnClick = CreateSELECTbasedonthecurrentrowClick
    end
    object CreateDELETEstatement: TMenuItem
      Tag = 3
      Caption = 'Create DELETE statement based on current row'
      OnClick = CreateSELECTbasedonthecurrentrowClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object GroupwareMenu: TMenuItem
      Caption = 'Groupware'
      object GetGRPIDfromOwnEmail: TMenuItem
        Tag = 4
        Caption = 'Get Groups from Own_Email'
        OnClick = CreateSELECTbasedonthecurrentrowClick
      end
      object GetEventsfromOwnEmail1: TMenuItem
        Tag = 5
        Caption = 'Get Events from Own_Email'
        OnClick = CreateSELECTbasedonthecurrentrowClick
      end
      object GetContactsfromOwnEmail1: TMenuItem
        Tag = 6
        Caption = 'Get Contacts from Own_Email'
        OnClick = CreateSELECTbasedonthecurrentrowClick
      end
      object GetFoldersfromOwnEmail1: TMenuItem
        Tag = 7
        Caption = 'Get Folders from Own_Email'
        OnClick = CreateSELECTbasedonthecurrentrowClick
      end
      object GetRightsfromOwnEmail1: TMenuItem
        Tag = 8
        Caption = 'Get Rights from Own_Email'
        OnClick = CreateSELECTbasedonthecurrentrowClick
      end
    end
  end
end